home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 120
/
Tiger_Disk_120_20xx_Tiger-Crew-Disk_de_Side_B.d64
/
load turn. chars
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
662b
|
16 lines
10 ifa=0thena=1:load"turned*",8,1
20 poke53280,2:poke53281,2
30 print"[147]"tab(15)"tiger-disk":print""tab(14)"praesentiert"
40 print""tab(10)" zeichen-spielchen ":sys20112:gosub150:sys20112
50 print"um eine solche darstellung der chars":print"in deinen eigenen pro";
60 print"grammen zu zeigen,":print"musst du nix anderes machen, als einen"
70 print"zeichensatz mit dem char-turner":print"dieser disk zu bearbeiten -"
80 print"und die nachgeladene routine -icl.chars-dann mit sys 20112 [146] ";
90 print"zu starten."
100 gosub150:sys20112:gosub150:sys20112:gosub150:sys20112:gosub150:sys20112
110 print"[150][150]space = [158]drehen / [155]prg.-ende: [158]f8"
120 geta$:ifa$<>" "anda$<>chr$(140)then120
130 ifa$=chr$(140)thensys64760
140 sys20112:fort=1to500:next:goto120
150 fort=1to1000:next:return